home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / tex / macros / contrib / euler.sty < prev    next >
Encoding:
Text File  |  1995-03-15  |  9.3 KB  |  213 lines
  1. %% 
  2. %% This is file `euler.sty', generated 
  3. %% on <1995/3/4> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% euler.dtx  (with options: `package')
  8. %% 
  9. %% Copyright (C) 1993 Frank Jensen, 
  10. %% Frank Mittelbach and Rainer Schoepf. 
  11. %% All rights reserved. 
  12. %% 
  13. %% This file is part of the NFSS2 package. 
  14. %% --------------------------------------- 
  15. %% 
  16. %% This is a contributed file. 
  17. %% 
  18.  
  19. \def\filename{euler}
  20. \def\fileversion{v2.2 (TEST)}
  21. \def\filedate{94/02/23}
  22.  
  23. %% File `euler.dtx'.
  24. %% Copyright (C) 1992 Frank Jensen, all rights reserved.
  25. %% Copyright (C) 1993, 1994 Frank Jensen and Mittelbach,
  26. %%                                  all rights reserved.
  27. %% \CharacterTable
  28. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  29. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  30. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  31. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  32. %%   Dollar        \$     Percent       \%     Ampersand     \&
  33. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  34. %%   Asterisk      \*     Plus          \+     Comma         \,
  35. %%   Minus         \-     Point         \.     Solidus       \/
  36. %%   Colon         \:     Semicolon     \;     Less than     \<
  37. %%   Equals        \=     Greater than  \>     Question mark \?
  38. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  39. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  40. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  41. %%   Right brace   \}     Tilde         \~}
  42. %%
  43. \NeedsTeXFormat{LaTeX2e}
  44. \ProvidesPackage{\filename}[\filedate\space\fileversion]
  45. \typeout{Package: `\filename' \fileversion\space <\filedate>
  46.                   (FJ and FMi)}
  47. \DeclareSymbolFont{letters}{U}{eur}{m}{n}
  48. \SetSymbolFont{letters}{bold}{U}{eur}{b}{n}
  49. \DeclareMathSymbol{0}\mathalpha{letters}{"30}
  50. \DeclareMathSymbol{1}\mathalpha{letters}{"31}
  51. \DeclareMathSymbol{2}\mathalpha{letters}{"32}
  52. \DeclareMathSymbol{3}\mathalpha{letters}{"33}
  53. \DeclareMathSymbol{4}\mathalpha{letters}{"34}
  54. \DeclareMathSymbol{5}\mathalpha{letters}{"35}
  55. \DeclareMathSymbol{6}\mathalpha{letters}{"36}
  56. \DeclareMathSymbol{7}\mathalpha{letters}{"37}
  57. \DeclareMathSymbol{8}\mathalpha{letters}{"38}
  58. \DeclareMathSymbol{9}\mathalpha{letters}{"39}
  59. \DeclareMathSymbol\Gamma  \mathord{letters}{"00}
  60. \DeclareMathSymbol\Delta  \mathord{letters}{"01}
  61. \DeclareMathSymbol\Theta  \mathord{letters}{"02}
  62. \DeclareMathSymbol\Lambda \mathord{letters}{"03}
  63. \DeclareMathSymbol\Xi     \mathord{letters}{"04}
  64. \DeclareMathSymbol\Pi     \mathord{letters}{"05}
  65. \DeclareMathSymbol\Sigma  \mathord{letters}{"06}
  66. \DeclareMathSymbol\Upsilon\mathord{letters}{"07}
  67. \DeclareMathSymbol\Phi    \mathord{letters}{"08}
  68. \DeclareMathSymbol\Psi    \mathord{letters}{"09}
  69. \DeclareMathSymbol\Omega  \mathord{letters}{"0A}
  70. \let\varsigma=\sigma
  71. \let\varrho=\rho
  72. \DeclareSymbolFont{eulerfraktur}{U}{euf}{m}{n}
  73. \SetSymbolFont{eulerfraktur}{bold}{U}{euf}{b}{n}
  74. \DeclareSymbolFontAlphabet\frak{eulerfraktur}
  75. \let\oldstyle=\frak
  76. \DeclareMathSymbol{!}\mathord  {eulerfraktur}{"21}
  77. \DeclareMathSymbol{(}\mathopen {eulerfraktur}{"28}
  78. \DeclareMathSymbol{)}\mathclose{eulerfraktur}{"29}
  79. \DeclareMathSymbol{+}\mathbin  {eulerfraktur}{"2B}
  80. \DeclareMathSymbol{-}\mathbin  {eulerfraktur}{"2D}
  81. \DeclareMathSymbol{=}\mathrel  {eulerfraktur}{"3D}
  82. \DeclareMathSymbol{[}\mathopen {eulerfraktur}{"5B}
  83. \DeclareMathSymbol{]}\mathclose{eulerfraktur}{"5D}
  84. \DeclareMathSymbol{"}\mathord  {eulerfraktur}{"7D}
  85. \DeclareMathSymbol{&}\mathord  {eulerfraktur}{"26}
  86. \DeclareMathSymbol{:}\mathrel  {eulerfraktur}{"3A}
  87. \DeclareMathSymbol{;}\mathpunct{eulerfraktur}{"3B}
  88. \DeclareMathSymbol{?}\mathord  {eulerfraktur}{"3F}
  89. \DeclareMathSymbol{^}\mathord  {eulerfraktur}{"5E}
  90. \DeclareMathSymbol{`}\mathord  {eulerfraktur}{"22}
  91. \DeclareMathDelimiter{(}{eulerfraktur}{"28}{largesymbols}{"00}
  92. \DeclareMathDelimiter{)}{eulerfraktur}{"29}{largesymbols}{"01}
  93. \DeclareMathDelimiter{[}{eulerfraktur}{"5B}{largesymbols}{"02}
  94. \DeclareMathDelimiter{]}{eulerfraktur}{"5D}{largesymbols}{"03}
  95. \DeclareSymbolFont{eulerscript}{U}{eus}{m}{n}
  96. \SetSymbolFont{eulerscript}{bold}{U}{eus}{b}{n}
  97. \DeclareSymbolFontAlphabet\scr{eulerscript}
  98. \DeclareMathSymbol\aleph\mathord{eulerscript}{"40}
  99. \DeclareMathSymbol\Re   \mathord{eulerscript}{"3C}
  100. \DeclareMathSymbol\Im   \mathord{eulerscript}{"3D}
  101. \DeclareMathDelimiter\vert
  102.                  \mathord{eulerscript}{"6A}{largesymbols}{"0C}
  103. \DeclareMathDelimiter\backslash
  104.                  \mathord{eulerscript}{"6E}{largesymbols}{"0F}
  105. \DeclareMathSymbol{|}\mathord{eulerscript}{"6A}
  106. \DeclareMathDelimiter{|}{eulerscript}{"6A}{largesymbols}{"0C}
  107. \DeclareMathSymbol\neg     \mathord{eulerscript}{"3A}
  108. \let\lnot=\neg
  109. \DeclareMathSymbol\wedge   \mathbin{eulerscript}{"5E}
  110. \let\land=\wedge
  111. \DeclareMathSymbol\vee     \mathbin{eulerscript}{"5F}
  112. \let\lor=\vee
  113. \DeclareMathSymbol\setminus\mathbin{eulerscript}{"6E}
  114. \DeclareMathSymbol\sim     \mathrel{eulerscript}{"18}
  115. \DeclareMathSymbol\mid     \mathrel{eulerscript}{"6A}
  116. \DeclareMathDelimiter\arrowvert
  117.         \mathord{eulerscript}{"6A}{largesymbols}{"3C} % ???
  118. \DeclareSymbolFont{eulerextension}{U}{euex}{m}{n}
  119. \DeclareMathSymbol\coprod@\mathop {eulerextension}{"60}
  120. \let\coprod=\coprod@
  121. \DeclareMathSymbol\prod@  \mathop {eulerextension}{"51}
  122. \let\prod=\prod@
  123. \DeclareMathSymbol\sum@   \mathop {eulerextension}{"50}
  124. \let\sum=\sum@
  125. \DeclareMathSymbol\intop  \mathop {eulerextension}{"52}
  126. \DeclareMathSymbol\ointop \mathop {eulerextension}{"48}
  127. \DeclareMathSymbol\braceld\mathord{eulerextension}{"7A}
  128. \DeclareMathSymbol\bracerd\mathord{eulerextension}{"7B}
  129. \DeclareMathSymbol\bracelu\mathord{eulerextension}{"7C}
  130. \DeclareMathSymbol\braceru\mathord{eulerextension}{"7D}
  131. \DeclareMathSymbol\infty  \mathord{eulerextension}{"31}
  132. \DeclareMathSymbol\nearrow\mathrel{eulerextension}{"25}
  133. \DeclareMathSymbol\searrow\mathrel{eulerextension}{"26}
  134. \DeclareMathSymbol\nwarrow\mathrel{eulerextension}{"2D}
  135. \DeclareMathSymbol\swarrow\mathrel{eulerextension}{"2E}
  136. \DeclareMathSymbol\Leftrightarrow\mathrel{eulerextension}{"2C}
  137. \DeclareMathSymbol\Leftarrow     \mathrel{eulerextension}{"28}
  138. \DeclareMathSymbol\Rightarrow    \mathrel{eulerextension}{"29}
  139. \DeclareMathSymbol\leftrightarrow\mathrel{eulerextension}{"24}
  140. \DeclareMathSymbol\leftarrow     \mathrel{eulerextension}{"20}
  141. \let\gets=\leftarrow
  142. \DeclareMathSymbol\rightarrow    \mathrel{eulerextension}{"21}
  143. \let\to=\rightarrow
  144. \DeclareMathDelimiter\uparrow
  145.               \mathrel{eulerextension}{"22}{largesymbols}{"78}
  146. \DeclareMathDelimiter\downarrow
  147.               \mathrel{eulerextension}{"23}{largesymbols}{"79}
  148. \DeclareMathDelimiter\updownarrow
  149.               \mathrel{eulerextension}{"6C}{largesymbols}{"3F}
  150. \DeclareMathDelimiter\Uparrow
  151.               \mathrel{eulerextension}{"2A}{largesymbols}{"7E}
  152. \DeclareMathDelimiter\Downarrow
  153.               \mathrel{eulerextension}{"2B}{largesymbols}{"7F}
  154. \DeclareMathDelimiter\Updownarrow
  155.               \mathrel{eulerextension}{"6D}{largesymbols}{"77}
  156. \DeclareMathSymbol\leftharpoonup   \mathrel{eulerextension}{"18}
  157. \DeclareMathSymbol\leftharpoondown \mathrel{eulerextension}{"19}
  158. \DeclareMathSymbol\rightharpoonup  \mathrel{eulerextension}{"1A}
  159. \DeclareMathSymbol\rightharpoondown\mathrel{eulerextension}{"1B}
  160. \DeclareMathDelimiter\lbrace
  161.               \mathopen{eulerscript}{"66}{eulerextension}{"08}
  162. \let\{=\lbrace
  163. \DeclareMathDelimiter\rbrace
  164.              \mathclose{eulerscript}{"67}{eulerextension}{"09}
  165. \let\}=\rbrace
  166. \DeclareSymbolFont{cmrgroup}{OT1}{cmr}{m}{n}
  167. \let\Relbar=\undefined   % Why is \Relbar defined in plain as a macro?
  168. \DeclareMathSymbol\Relbar\mathrel{cmrgroup}{"3D}
  169. \DeclareMathAlphabet\cm@minus@alphabet{OMS}{cmsy}{m}{n}
  170. \def\cm@minus{{\cm@minus@alphabet{\mathchar"7000}}}
  171. \def\relbar{\mathrel{\smash\cm@minus}}
  172.           % \smash, because - has the same height as +
  173. \def\leftarrowfill
  174.    {$\m@th\mathord\leftarrow\mkern-6mu%
  175.      \cleaders\hbox{$\mkern-2mu\cm@minus\mkern-2mu$}\hfill
  176.      \mkern-6mu\cm@minus$}
  177. \def\rightarrowfill
  178.    {$\m@th\cm@minus\mkern-6mu%
  179.      \cleaders\hbox{$\mkern-2mu\cm@minus\mkern-2mu$}\hfill
  180.      \mkern-6mu\mathord\rightarrow$}
  181. \DeclareSymbolFont{cmmigroup}{OML}{cmm}{m}{it}
  182. \SetSymbolFont{cmmigroup}{bold}{OML}{cmm}{b}{it}
  183. \DeclareMathAccent\vec          \mathord{cmmigroup}{"7E}
  184. \DeclareMathSymbol\triangleleft \mathbin{cmmigroup}{"2F}
  185. \DeclareMathSymbol\triangleright\mathbin{cmmigroup}{"2E}
  186. \DeclareMathSymbol\star         \mathbin{cmmigroup}{"3F}
  187. \DeclareMathSymbol\lhook        \mathrel{cmmigroup}{"2C}
  188. \DeclareMathSymbol\rhook        \mathrel{cmmigroup}{"2D}
  189. \DeclareMathSymbol\flat         \mathord{cmmigroup}{"5B}
  190. \DeclareMathSymbol\natural      \mathord{cmmigroup}{"5C}
  191. \DeclareMathSymbol\sharp        \mathord{cmmigroup}{"5D}
  192. \DeclareMathSymbol\smile        \mathrel{cmmigroup}{"5E}
  193. \DeclareMathSymbol\frown        \mathrel{cmmigroup}{"5F}
  194. \begingroup
  195.    \catcode`\'=\active
  196.    \gdef'{^\bgroup\mskip2mu\prim@s} % more space before '
  197. \endgroup
  198. \AtBeginDocument
  199.    {\DeclareSymbolFont{operators}\encodingdefault
  200.             \rmdefault\mddefault\updefault
  201.     \SetSymbolFont{operators}{bold}\encodingdefault
  202.             \rmdefault\bfdefault\updefault}
  203. \DeclareMathAccent\hat\mathord{eulerfraktur}{"5E}
  204. \DeclareMathSymbol\euler@hbar\mathord{cmrgroup}{"16}
  205. \def\hbar{{\euler@hbar\mkern-8muh}}
  206. \def\@makefnmark{\hbox{$\operator@font^{\@thefnmark}\m@th$}}
  207. \long\def\@makefntext#1{\parindent 1em\noindent
  208.       \hbox to1.8em{\hss$\operator@font^{\@thefnmark}\m@th$}#1}
  209.  
  210. \endinput
  211. %% 
  212. %% End of file `euler.sty'.
  213.